//Cara Pemakaian EnumWindows
procedure TForm1.Button1Click(Sender: TObject);
begin
        Listbox1.Clear;
        EnumWindows(@EnumWindowsProc1, Integer(Listbox1.items));
end;
